home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
DISASS.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
4KB
|
30 lines
;;; compiled by @win386 on Sat Mar 13 01:57:59 1993
;;; from file c:/src/lucid-19.4/lisp/bytecomp/disass.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(require 'byte-optimize)
(defvar disassemble-column-1-indent 5 "\
*")
(defvar disassemble-column-2-indent 10 "\
*")
(defvar disassemble-recursive-indent 3 "\
*")
(fset 'disassemble #[(object &optional buffer indent interactive-p) "ó┴=½à┬├E¼é┼è¼ä¼É╚É╚qê╔?#æê¬èqê╔├#ê)├ç" [object byte-code lambda nil indent 0 interactive-p buffer "*Disassemble*" disassemble-internal] 5 "\
Print disassembled code for OBJECT in (optional) BUFFER.
OBJECT can be a symbol defined as a function, or a function itself
(a lambda expression or a compiled-function object).
If OBJECT is not already compiled, we compile it, but do not
redefine OBJECT if it is a symbol." (byte-code "└┴┬─┼$!╞╟┼Fç" [intern completing-read "Disassemble function: " obarray fboundp t nil 0] 6)])
(fset 'disassemble-internal #[(obj indent interactive-p) "└ëëë9½êKë¬u╞!½à╟╚\"êó─=½à╔A<½è@╩=¼ä╟╦!ê:½á╠₧¼¢½ï╬½â╧¬ü╨\"ê╤!½ä╬╥!ê:½ïAë@A¬ä╙H╙U½ñjê╒╓¼â½â╫¬ü╪½â┘¬ü╪½å╒┌\"¬ü╪$cê:½ë@;¡ì@¬ëG█V¡â█H뽺\n;½ú:½âAjê▄▌p\"ê▐▀\n\"½ê\n╙ëöOαP\n▀▒ê)jêßcêΓ p\"ê▀cê:½àπ₧¬ïGΣV¡àπΣHDë#½║#A@#óóπ=½âAjêσcê#ó╠=½Å▀cêµ#'\\\"ê¬è╔(Γ#p\"ê)▀cê):½Å╠₧½èµ╠₧\"ê¬úΘ!½êµ\"ê¬ûΩcê╔(ΓA½àδB¬é@p\"ê),¡â╬╪!ç" [nil args doc name macro obj subrp error "Can't disassemble #<subr %s>" t lambda "not a function" byte-code interactive-p message "Compiling %s's definition..." "Compiling definition..." byte-compile "Done compiling. Disassembling..." 0 indent format "byte code%s%s%s:\n" " for" "" " macro" " %s" 4 princ " doc: " string-match "\n" " ..." " args: " prin1 interactive 5 " interactive: " disassemble-1 disassemble-recursive-indent print-escape-newlines compiled-function-p "Uncompiled body: " progn] 8])
(fset 'disassemble-1 #[(obj indent) "└ë:½ïA@AA@¬ê─H┼H╞\n \"└ëë \n╦└\n\n╬\n₧ë½òATëáê\n>A\n¬b+\nâÄ\n@@ \n@Ajê ╬=½î╨@!╤▒êéà\\jê ½ò╙╘╒ !ë\"½ë╓└O¬â╫ ╪=½â┘cêcê█\\\\\\jê▄cê >½ï╨A@!cêéé ▐>½ë╨!cêéé ▀>½èα@p\"êéé ß>âé@Γ!¼¬óπ=½åΣ₧¼¥óσ=½┐ΓA!¼ÅAóπ=½░ΣA₧½⌐Γ!½àµcê¬Åóπ=½àτcê¬âΦcêΘ*─\\\\└#ê¬│óΣ=½Åδcê∞*\\\"ꬥóóΣ=½ïφcêε∩\"ê¬è≡1αp\"ê)≥cê\nAë\näX .└ç" [nil constvec bytes obj 1 2 byte-decompile-bytecode opname arg op lap 0 tmp tagno TAG indent int-to-string ":" disassemble-column-1-indent string-match "^byte-" symbol-name 5 "<not-an-opcode>" byte-constant2 " #### shouldn't have seen constant2 here!\n " disassemble-column-2-indent -1 " " byte-goto-ops (byte-call byte-unbind byte-listN byte-concatN byte-insertN) (byte-varref byte-varset byte-varbind) prin1 (byte-constant byte-constant2) compiled-function-p lambda byte-code macro "<compiled-function>\n" "<compiled lambda>" "<compiled macro>\n" disassemble-internal disassemble-recursive-indent "<byte code>\n" disassemble-1 "(<byte code>...)\n" mapcar #[(obj) "└ \n\\\"ç" [disassemble-1 obj indent disassemble-recursive-indent] 4] t print-escape-newlines "\n"] 6 "\
Prints the byte-code call OBJ in the current buffer.
OBJ should be a call to BYTE-CODE generated by the byte compiler."])